Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue31/system/LibExpert/LibTestForm.dfm/LibTestForm.txt

Text File | 1998-02-01 | 12.3 KB | 547 lines

object LibExTest: TLibExTest
  Left = 143
  Top = 217
  BorderStyle = bsDialog
  Caption = 'The Amazing LibIntf Exerciser Expert'
  ClientHeight = 259
  ClientWidth = 571
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object TabSet1: TTabSet
    Left = 0
    Top = 238
    Width = 571
    Height = 21
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnChange = TabSet1Change
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 571
    Height = 238
    Align = alClient
    PageIndex = 1
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'Miscellaneous'
      object GroupBox1: TGroupBox
        Left = 10
        Top = 10
        Width = 471
        Height = 183
        Caption = ' Miscellaneous IDE Info '
        TabOrder = 0
        object Label1: TLabel
          Left = 12
          Top = 24
          Width = 131
          Height = 13
          Caption = 'Delphi 3 Base Registry Key:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 12
          Top = 83
          Width = 104
          Height = 13
          Caption = 'Path and Base Name:'
        end
        object PathAndBaseName: TLabel
          Left = 12
          Top = 99
          Width = 109
          Height = 13
          Caption = 'PathAndBaseName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label7: TLabel
          Left = 12
          Top = 131
          Width = 133
          Height = 13
          Caption = 'Delphi IDE Window Handle:'
        end
        object AppHandle: TLabel
          Left = 12
          Top = 147
          Width = 63
          Height = 13
          Caption = 'AppHandle'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label8: TLabel
          Left = 268
          Top = 83
          Width = 63
          Height = 13
          Caption = 'Current Time:'
        end
        object IDETime: TLabel
          Left = 268
          Top = 99
          Width = 49
          Height = 13
          Caption = 'IDETime'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 268
          Top = 131
          Width = 124
          Height = 13
          Caption = 'Delphi Main Window Size:'
        end
        object WinSize: TLabel
          Left = 268
          Top = 147
          Width = 47
          Height = 13
          Caption = 'WinSize'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object BaseReg: TEdit
          Left = 12
          Top = 41
          Width = 245
          Height = 21
          TabOrder = 0
          Text = 'BaseReg'
        end
        object cbLockState: TCheckBox
          Left = 324
          Top = 43
          Width = 97
          Height = 17
          Caption = 'Lock State'
          TabOrder = 1
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Form Designer'
      object CompCount: TLabel
        Left = 8
        Top = 15
        Width = 55
        Height = 13
        Caption = 'CompCount'
      end
      object FileSystem: TLabel
        Left = 8
        Top = 31
        Width = 50
        Height = 13
        Caption = 'FileSystem'
      end
      object FormName: TLabel
        Left = 8
        Top = 47
        Width = 51
        Height = 13
        Caption = 'FormName'
      end
      object Ancestor: TLabel
        Left = 8
        Top = 63
        Width = 42
        Height = 13
        Caption = 'Ancestor'
      end
      object FirstCompName: TLabel
        Left = 8
        Top = 79
        Width = 74
        Height = 13
        Caption = 'FirstCompName'
      end
      object TabCompCount: TLabel
        Left = 8
        Top = 95
        Width = 74
        Height = 13
        Caption = 'TabCompCount'
      end
      object FirstNVComp: TLabel
        Left = 8
        Top = 111
        Width = 61
        Height = 13
        Caption = 'FirstNVComp'
      end
      object Show: TButton
        Left = 480
        Top = 43
        Width = 75
        Height = 25
        Caption = '&Show'
        TabOrder = 0
        OnClick = ShowClick
      end
      object ScrollBox1: TScrollBox
        Left = 272
        Top = 16
        Width = 193
        Height = 209
        HorzScrollBar.Tracking = True
        VertScrollBar.Tracking = True
        TabOrder = 1
        object Image3: TImage
          Left = 0
          Top = 0
          Width = 145
          Height = 141
          AutoSize = True
        end
      end
      object Hide: TButton
        Left = 480
        Top = 13
        Width = 75
        Height = 25
        Caption = '&Hide'
        TabOrder = 2
        OnClick = HideClick
      end
      object NewName: TButton
        Left = 480
        Top = 73
        Width = 75
        Height = 25
        Caption = 'New Name...'
        TabOrder = 3
        OnClick = NewNameClick
      end
      object GroupBox2: TGroupBox
        Left = 9
        Top = 136
        Width = 248
        Height = 89
        Caption = ' TICompInfo (for 1st component) '
        TabOrder = 4
        object CIName: TLabel
          Left = 12
          Top = 20
          Width = 38
          Height = 13
          Caption = 'CIName'
        end
        object CIEventCount: TLabel
          Left = 12
          Top = 36
          Width = 66
          Height = 13
          Caption = 'CIEventCount'
        end
        object Label3: TLabel
          Left = 12
          Top = 60
          Width = 76
          Height = 13
          Caption = 'Defined Events:'
        end
        object EventCombo: TComboBox
          Left = 96
          Top = 56
          Width = 141
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Palette Info'
      object GroupBox5: TGroupBox
        Left = 9
        Top = 9
        Width = 240
        Height = 184
        Caption = ' Palette Item Bitmaps '
        TabOrder = 0
        object Image2: TImage
          Left = 191
          Top = 28
          Width = 28
          Height = 28
          Visible = False
        end
        object Label4: TLabel
          Left = 19
          Top = 83
          Width = 149
          Height = 13
          Caption = 'Currently Selected Palette Icon:'
        end
        object Image1: TImage
          Left = 191
          Top = 75
          Width = 28
          Height = 28
        end
        object ComboBox1: TComboBox
          Left = 20
          Top = 32
          Width = 145
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            'TMainMenu'
            'TPopupMenu'
            'TLabel'
            'TEdit'
            'TMemo'
            'TButton'
            'TCheckBox'
            'TRadioButton'
            'TListBox'
            'TComboBox'
            'TScrollBar'
            'TGroupBox'
            'TRadioGroup'
            'TPanel')
          TabOrder = 0
          OnChange = ComboBox1Change
        end
      end
      object GroupBox4: TGroupBox
        Left = 257
        Top = 9
        Width = 224
        Height = 184
        Caption = ' Palette Class Help '
        TabOrder = 1
        object Label2: TLabel
          Left = 12
          Top = 26
          Width = 157
          Height = 13
          Caption = 'Enter a class name and click OK:'
        end
        object HelpClassName: TEdit
          Left = 11
          Top = 49
          Width = 198
          Height = 21
          TabOrder = 0
          OnChange = HelpClassNameChange
        end
        object ClassHelpOK: TButton
          Left = 134
          Top = 140
          Width = 75
          Height = 21
          Caption = '&OK'
          Enabled = False
          TabOrder = 1
          OnClick = ClassHelpOKClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Standard Dialogs'
      object GroupBox3: TGroupBox
        Left = 9
        Top = 9
        Width = 472
        Height = 184
        Caption = ' Delphi IDE Standard Dialogs '
        TabOrder = 0
        object Label10: TLabel
          Left = 20
          Top = 40
          Width = 101
          Height = 13
          Caption = 'Wanted Dialog Type:'
        end
        object ComboBox2: TComboBox
          Left = 132
          Top = 36
          Width = 145
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            'Align'
            'Size'
            'Scale'
            'Tab Order'
            'Creation Order'
            'Save Template')
          TabOrder = 0
        end
        object Button1: TButton
          Left = 135
          Top = 80
          Width = 146
          Height = 25
          Caption = 'E&xecute Dialog'
          TabOrder = 1
          OnClick = Button1Click
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Selections'
      object GroupBox6: TGroupBox
        Left = 17
        Top = 17
        Width = 280
        Height = 88
        Caption = ' Selected Component Info'
        TabOrder = 0
        object SelectionType: TLabel
          Left = 12
          Top = 37
          Width = 68
          Height = 13
          Caption = 'SelectionType'
        end
        object SelectionName: TLabel
          Left = 12
          Top = 21
          Width = 72
          Height = 13
          Caption = 'SelectionName'
        end
        object FirstSelectionType: TLabel
          Left = 12
          Top = 53
          Width = 87
          Height = 13
          Caption = 'FirstSelectionType'
        end
      end
      object SelectedList: TListBox
        Left = 313
        Top = 21
        Width = 152
        Height = 164
        ItemHeight = 13
        TabOrder = 1
      end
      object SetLockState: TCheckBox
        Left = 21
        Top = 117
        Width = 97
        Height = 17
        Caption = 'Set &Lock State'
        TabOrder = 2
        OnClick = SetLockStateClick
      end
      object SelectAll: TButton
        Left = 24
        Top = 153
        Width = 75
        Height = 25
        Caption = 'Select All'
        TabOrder = 3
        OnClick = SelectAllClick
      end
      object DeleteAll: TButton
        Left = 112
        Top = 153
        Width = 75
        Height = 25
        Caption = 'DeleteAll'
        TabOrder = 4
        OnClick = DeleteAllClick
      end
      object Button2: TButton
        Left = 200
        Top = 153
        Width = 89
        Height = 25
        Caption = 'Form As Text'
        TabOrder = 5
        OnClick = Button2Click
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'More Selection Info'
      object Label11: TLabel
        Left = 21
        Top = 15
        Width = 170
        Height = 13
        Caption = 'Properties of Selected component/s'
      end
      object Label12: TLabel
        Left = 285
        Top = 15
        Width = 156
        Height = 13
        Caption = 'Events of Selected component/s'
      end
      object PropertyList: TListBox
        Left = 17
        Top = 29
        Width = 248
        Height = 188
        ItemHeight = 13
        Sorted = True
        TabOrder = 0
      end
      object EventList: TListBox
        Left = 281
        Top = 29
        Width = 248
        Height = 188
        ItemHeight = 13
        Sorted = True
        TabOrder = 1
      end
    end
  end
end